home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
ugly174.zip
/
RSB1UGLY.MRG
< prev
next >
Wrap
Text File
|
1992-07-05
|
741b
|
19 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RELEASE\RBBSSUB1.BAS to produce RBBSSUB1.BAS
* RELEASE\RBBSSUB1.BAS: Date 6-20-1992 Size 55569 bytes
* ------------[ Created 07-04-1992 19:43:15 ]------------
* REPLACING old line(s) by new
52003 WasAX = 0
WasBX = 0
WasCX = 0
WasDX = 0
IF MID$(ZWasZ$,2,1) = ":" THEN _
WasAX = ASC(ZWasZ$) - ASC("A") + 1
CALL RBBSFree (WasAX,WasBX,WasCX,WasDX)
WasI# = CDBL(WasAX) * (WasBX + 65536! * (-(WasBX < 0)))
WasI# = WasI# * WasCX
ZFreeSpace$ = STR$(WasI#) + _
* ------[ first line different ]------
" Bytes Free." ' UG070501
END SUB